Dashboard

Subset of Instacart Data

data("instacart")

instacart_subset = 
instacart %>% 
  mutate(mean_hour = mean(order_hour_of_day)) %>%
  select(product_name, order_dow, order_hour_of_day, aisle, department, mean_hour) %>% 
  mutate(
    order_dow = 
      recode_factor(order_dow, "0" = "Monday", "1" = "Tuesday", "2" = "Wednesday", "3" = "Thursday", "4" = "Friday", "5" = "Saturday", "6" = "Sunday"))

Column

Chart A

instacart_subset %>% 
  filter(
    department == "produce"
  ) %>% 
  count(product_name) %>% 
  plot_ly(
    x = ~product_name, y = ~n, type = "scatter", mode = "markers")

Column

Chart B

instacart_subset %>% 
  plot_ly(y = ~department, color = ~order_dow, type = "box", colors = "viridis")

Chart C

instacart_subset %>% 
  count(aisle) %>% 
  filter(n > 20000) %>% 
  plot_ly(x = ~aisle, y = ~n, color = ~aisle, type = "bar", colors = "viridis")